home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
sort2.zip
/
WORDS.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
335b
|
9 lines
program words;
{ lists all words in input, one per line }
var s,w: string; i,j:integer;
begin
w:=''; while not eof do begin
readln(s); for i:=1 to length(s) do
if s[i] in ['A'..'Z','a'..'z'] then w:=w+s[i]
else if w<>'' then begin writeln(w); w:=''; end;
if w<>'' then begin writeln(w); w:=''; end; end; end.